home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / aux_generic1.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  305 b   |  26 lines  |  [TEXT/EDIT]
  1. class AUX_GENERIC1[E]
  2.  
  3. creation make
  4.  
  5. feature {}
  6.    
  7.    arg: E;
  8.    
  9.    make(e: E) is
  10.       do
  11.      arg := e
  12.       end;
  13.    
  14. feature 
  15.    
  16.    bizarre is
  17.      -- Vous avez dit bizarre ?
  18.      -- Comme c'est etrange...
  19.       local
  20.      tmp: AUX_GENERIC1[E]
  21.       do
  22.      tmp := clone(Current);
  23.       end;
  24.  
  25. end -- AUX_GENERIC1
  26.